home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GROCER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  20.8 KB  |  655 lines
  1. 5 DIMGL$(195),N$(195),DP$(13),M$(13),A$(195),L$(195)
  2. 10 FORAD=49152TOAD+165:READDA:POKEAD,DA:NEXT:PRINT"[147][154]":ML=49152:X1=49314:Y1=X1+1:X=X1+2:Y=X1+3
  3. 20 REM BELL SUBROUTINE
  4. 25 BE=679:FORZ=BETOBE+30:READD:POKEZ,D:NEXT
  5. 30 REM SYSBE TO GET THE BELL SOUND
  6. 310 REM X1=TAB   Y1=VERT DOWN FROM HOME         X= HORZ LENGTH OF WINDOW
  7. 311 REM Y= VERT LENGTH
  8. 312 REM :
  9. 313 REM POKEX1,10:POKEX,10:POKEY1,9 :POKEY,10
  10. 314 REM :
  11. 315 REM SYSML:PRINTTAB(PEEK(X1)+1);
  12. 316 REM :
  13. 317 REM LINE 450 IS A SINGLE WINDOW.  ALWAYS ?TAB(PEEK(X1)+1); AT EACH NEW LINE.
  14. 400 REM TITLE PAGE
  15. 410 POKE53280,7:POKE53281,7
  16. 420 POKEX1,7:POKEX,23:POKEY1,5:POKEY,7
  17. 430 SYSML:PRINT
  18. 440 PRINTTAB(9)"[213][195][201][176][195][201][213][195][201][213][195][174][176][195][174][176][195][201][178] [178]":PRINTTAB(9)"[194] [178][171][195][179][194] [194][194]  [171][195] [171][195][179][202][178][203]"
  19. 450 PRINTTAB(9)"[202][195][203][177] [173][202][195][203][202][195][189][173][195][189][177] [173] [177]":PRINTTAB(15)"[178]  [178][213][195][174][176][178][174]"
  20. 460 PRINTTAB(15)"[194]  [194][202][195][201][160][194]":PRINTTAB(15)"[173][195][189][177][173][195][203] [177]"
  21. 470 Z1=18:Z=1
  22. 480 POKEX1,Z1:POKEX,Z:POKEY1,15:POKEY,2:SYSML:Z1=Z1-1:Z=Z+2:IFZ1=6THEN500
  23. 490 GOTO480
  24. 500 PRINTTAB(12)"BY V. LAUGHLIN"
  25. 510 PRINTTAB(14)"JUNE 1988"
  26. 515 FORZ=1TO5:PRINT:NEXT
  27. 520 PRINT"       PRESS SPACE BAR TO CONTINUE     [146]"
  28. 525 GETZ$:IFZ$<>" "THEN525
  29. 530 PRINT"[147]":FORZ=1TO4:PRINT:NEXTZ:PRINTTAB(13)"***[206][207][212][201][195][197]***":PRINT
  30. 540 PRINTCHR$(14)"[199][210][207][195][197][210][217] [204][201][211][212] IS DISTRIBUTED AS A "
  31. 550 PRINT"SHAREWARE PROGRAM.  [201]F YOU KEEP THE"
  32. 560 PRINT"PROGRAM, AND USE IT, PLEASE SEND"
  33. 570 PRINT"$3.00 TO THE FOLLOWING ADDRESS:"
  34. 580 PRINT:PRINT:PRINTTAB(9)"[195][200][201][195][207][215][193][210][197][160][197][206][212][197][210][208][210][201][211][197][211]"
  35. 590 PRINTTAB(9)"700 [199]ANIM [196]RIVE"
  36. 600 PRINTTAB(9)"[194]ELLEVILLE, [201][204]  62221-7419"
  37. 605 FORZ=1TO6:PRINT:NEXT
  38. 610 PRINT"       PRESS SPACE BAR TO CONTINUE     [146]"
  39. 615 GETZ$:IFZ$<>" "THEN615
  40. 620 PRINT"[147]":FORZ=1TO5:PRINT:NEXT
  41. 630 PRINT"     [199][210][207][195][197][210][217][160][204][201][211][212] IS A MENU-DRIVEN"
  42. 640 PRINT"UTILITY THAT AIDS IN MAKING YOUR"
  43. 650 PRINT"LISTING THAT YOU TAKE TO THE MARKET."
  44. 660 PRINT"[217]OU CAN ADD TO THE LIST AS YOU DISCOVER"
  45. 670 PRINT"THE ITEMS THAT YOU NEED.  [212]HE LIST"
  46. 680 PRINT"ALSO FLAGS THOSE ITEMS THAT MATCH YOUR"
  47. 690 PRINT"COUPONS WITH AN ASTERISK (*).  [201] HOPE"
  48. 700 PRINT"THAT YOU ENJOY THIS PROGRAM."
  49. 710 PRINT:PRINT"     [212]HIS PROGRAM REQUIRES A 1541 DISK"
  50. 720 PRINT"DRIVE AND A 1525 PRINTER (OR SUITABLE"
  51. 730 PRINT"EMULATOR)."
  52. 735 FORZ=1TO5:PRINT:NEXT
  53. 740 PRINT"       PRESS SPACE BAR TO CONTINUE     [146]"
  54. 742 GETZ$:IFZ$<>" "THEN742
  55. 745 REM MAIN MENU
  56. 750 PRINTCHR$(142)"[147]":POKE53280,13:POKE53281,13
  57. 760 POKEX1,4:POKEX,30:POKEY1,1:POKEY,17:SYSML:PRINT
  58. 770 PRINTTAB(17)"MENU":PRINT:PRINT
  59. 780 PRINTTAB(6)"F1[146]  MAKE A NEW LIST":PRINT
  60. 790 PRINTTAB(6)"F2[146]  ADD TO A PREVIOUS LIST":PRINT
  61. 800 PRINTTAB(6)"F3[146]  SAVE YOUR LIST":PRINT
  62. 810 PRINTTAB(6)"F4[146]  VIEW YOUR LIST":PRINT
  63. 820 PRINTTAB(6)"F5[146]  PRINT YOUR LIST":PRINT
  64. 825 PRINTTAB(6)"F6[146]  QUIT":PRINT:PRINT:PRINT:PRINT
  65. 830 PRINTTAB(7)"WHAT WOULD YOU LIKE TO DO?":PRINTTAB(8)"(SELECT A FUNCTION KEY)"
  66. 832 SYSBE
  67. 835 GETC$:IFC$=""THEN835
  68. 850 IFC$="[133]"THEN900
  69. 860 IFC$="[137]"THEN11600
  70. 870 IFC$="[134]"THEN11700
  71. 880 IFC$="[138]"THEN11800
  72. 885 IFC$="[135]"THEN11900
  73. 890 IFC$="[139]"THEN12100
  74. 895 IFC$<>"[133]"ORC$<>"[137]"ORC$<>"[134]"ORC$<>"[138]"ORC$<>"[135]"ORC$<>"[139]"THEN745
  75. 900 REM GROCERY DEPARTMENTS
  76. 901 OPEN2,8,2,"@0:STUFF,S,W"
  77. 902 B=1:C=1:N=15:M=13:GL=195
  78. 903 REM READ THE GROCERY LIST DATA
  79. 904 FOR Z=1TOGL:READN$(Z):READGL$(Z):NEXT
  80. 905 FOR Z=1TOM:READM$(Z):READDP$(Z):NEXT
  81. 910 PRINT"[147]":PRINT:PRINT
  82. 915 POKEX1,6:POKEX,28:POKEY1,1:POKEY,16:SYSML
  83. 917 PRINT:PRINTTAB(14)"DEPARTMENTS":PRINT
  84. 920 FOR Z=1TOM:PRINTTAB(9)M$(Z)CHR$(46)CHR$(32)DP$(Z):NEXT
  85. 925 PRINT:PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  86. 930 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  87. 935 GETB$:IFB$=""THEN935
  88. 940 IFB$="[133]"THENCLOSE2:GOTO745
  89. 941 IFB$="A"THEN1000
  90. 942 IFB$="B"THEN1080
  91. 943 IFB$="C"THEN1160
  92. 944 IFB$="D"THEN1240
  93. 945 IFB$="E"THEN1320
  94. 946 IFB$="F"THEN1400
  95. 947 IFB$="G"THEN1480
  96. 948 IFB$="H"THEN1560
  97. 949 IFB$="I"THEN1640
  98. 950 IFB$="J"THEN1720
  99. 951 IFB$="K"THEN1800
  100. 952 IFB$="L"THEN1880
  101. 953 IFB$="M"THEN1960
  102. 1000 REM FRUITS & VEGETABLES
  103. 1005 PRINT"[147]":PRINT
  104. 1010 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  105. 1015 FORZ=1TON:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  106. 1020 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  107. 1025 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  108. 1030 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  109. 1035 GETA$(B):IF A$(B)=""THEN1035
  110. 1036 IFA$(B)="[133]"THENCLOSE2:GOTO750
  111. 1037 IFA$(B)="[134]"THEN910
  112. 1038 IFA$(B)="O"THENGOSUB12000:GOTO1056
  113. 1039 IFA$(B)="A"THENL$(B)="APPLES"
  114. 1040 IFA$(B)="B"THENL$(B)="BANANAS"
  115. 1041 IFA$(B)="C"THENL$(B)="ORANGES"
  116. 1042 IFA$(B)="D"THENL$(B)="LETTUCE"
  117. 1043 IFA$(B)="E"THENL$(B)="TOMATOES"
  118. 1044 IFA$(B)="F"THENL$(B)="CELERY"
  119. 1045 IFA$(B)="G"THENL$(B)="CARROTS"
  120. 1046 IFA$(B)="H"THENL$(B)="BELL PEPPERS"
  121. 1047 IFA$(B)="I"THENL$(B)="MUSHROOMS"
  122. 1048 IFA$(B)="J"THENL$(B)="POTATOES"
  123. 1049 IFA$(B)="K"THENL$(B)="ONIONS"
  124. 1050 IFA$(B)="L"THENL$(B)="GREEN ONIONS"
  125. 1051 IFA$(B)="M"THENL$(B)="SPINACH"
  126. 1052 IFA$(B)="N"THENL$(B)="AVOCADOES"
  127. 1056 GOSUB13000
  128. 1060 PRINT#2,L$(B)
  129. 1065 B=B+1:GOTO1005
  130. 1080 REM CANNED & DRIED GOODS
  131. 1085 PRINT"[147]":PRINT
  132. 1090 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  133. 1095 FORZ=16TO30:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  134. 1100 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  135. 1105 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  136. 1110 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  137. 1115 GETA$(B):IF A$(B)=""THEN1115
  138. 1116 IFA$(B)="[133]"THENCLOSE2:GOTO750
  139. 1117 IFA$(B)="[134]"THEN910
  140. 1118 IFA$(B)="O"THENGOSUB12000:GOTO1136
  141. 1119 IFA$(B)="A"THENL$(B)="ASPARAGUS"
  142. 1120 IFA$(B)="B"THENL$(B)="GREEN BEANS"
  143. 1121 IFA$(B)="C"THENL$(B)="RANCH STYLE BEANS"
  144. 1122 IFA$(B)="D"THENL$(B)="CORN"
  145. 1123 IFA$(B)="E"THENL$(B)="TOMATO PASTE"
  146. 1124 IFA$(B)="F"THENL$(B)="BLACK-EYED PEAS"
  147. 1125 IFA$(B)="G"THENL$(B)="SWEET PEAS"
  148. 1126 IFA$(B)="H"THENL$(B)="ROTEL TOMATOES"
  149. 1127 IFA$(B)="I"THENL$(B)="TOMATO SAUCE"
  150. 1128 IFA$(B)="J"THENL$(B)="TOMATOES"
  151. 1129 IFA$(B)="K"THENL$(B)="REFRIED BEANS"
  152. 1130 IFA$(B)="L"THENL$(B)="SPAGHETTI"
  153. 1131 IFA$(B)="M"THENL$(B)="MACARONI"
  154. 1132 IFA$(B)="N"THENL$(B)="YAMS"
  155. 1136 GOSUB13000
  156. 1140 PRINT#2,L$(B)
  157. 1145 B=B+1:GOTO1085
  158. 1160 REM MEATS/POULTRY/FISH
  159. 1165 PRINT"[147]":PRINT
  160. 1170 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  161. 1175 FORZ=31TO45:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  162. 1180 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  163. 1185 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  164. 1190 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  165. 1195 GETA$(B):IF A$(B)=""THEN1195
  166. 1196 IFA$(B)="[133]"THENCLOSE2:GOTO750
  167. 1197 IFA$(B)="[134]"THEN910
  168. 1198 IFA$(B)="O"THENGOSUB12000:GOTO1216
  169. 1199 IFA$(B)="A"THENL$(B)="HAMBURGER"
  170. 1200 IFA$(B)="B"THENL$(B)="T-BONE STEAK"
  171. 1201 IFA$(B)="C"THENL$(B)="SIRLOIN STEAK"
  172. 1202 IFA$(B)="D"THENL$(B)="FAJITAS"
  173. 1203 IFA$(B)="E"THENL$(B)="ROAST"
  174. 1204 IFA$(B)="F"THENL$(B)="PORK CHOPS"
  175. 1205 IFA$(B)="G"THENL$(B)="RIBS"
  176. 1206 IFA$(B)="H"THENL$(B)="TURKEY"
  177. 1207 IFA$(B)="I"THENL$(B)="CHICKEN"
  178. 1208 IFA$(B)="J"THENL$(B)="TUNA"
  179. 1209 IFA$(B)="K"THENL$(B)="SPAM"
  180. 1210 IFA$(B)="L"THENL$(B)="SANDWICH MEATS"
  181. 1211 IFA$(B)="M"THENL$(B)="CHILI"
  182. 1212 IFA$(B)="N"THENL$(B)="BACON"
  183. 1216 GOSUB13000
  184. 1220 PRINT#2,L$(B)
  185. 1225 B=B+1:GOTO1165
  186. 1240 REM FROZEN FOODS
  187. 1245 PRINT"[147]":PRINT
  188. 1250 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  189. 1255 FORZ=46TO60:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  190. 1260 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  191. 1265 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  192. 1270 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  193. 1275 GETA$(B):IF A$(B)=""THEN1275
  194. 1276 IFA$(B)="[133]"THENCLOSE2:GOTO750
  195. 1277 IFA$(B)="[134]"THEN910
  196. 1278 IFA$(B)="O"THENGOSUB12000:GOTO1296
  197. 1279 IFA$(B)="A"THENL$(B)="ORANGE JUICE"
  198. 1280 IFA$(B)="B"THENL$(B)="ICE CREAM"
  199. 1281 IFA$(B)="C"THENL$(B)="PIZZA"
  200. 1282 IFA$(B)="D"THENL$(B)="POT PIES"
  201. 1283 IFA$(B)="E"THENL$(B)="MEXICAN DINNERS"
  202. 1284 IFA$(B)="F"THENL$(B)="FRENCH FRIES"
  203. 1285 IFA$(B)="G"THENL$(B)="POPSICLES"
  204. 1286 IFA$(B)="H"THENL$(B)="WEIGHT WATCHERS"
  205. 1287 IFA$(B)="I"THENL$(B)="LEAN CUISINE"
  206. 1288 IFA$(B)="J"THENL$(B)="STOUFFERS"
  207. 1289 IFA$(B)="K"THENL$(B)="FISH STICKS"
  208. 1290 IFA$(B)="L"THENL$(B)="CORN DOGS"
  209. 1291 IFA$(B)="M"THENL$(B)="CORN ON THE COB"
  210. 1292 IFA$(B)="N"THENL$(B)="VEGETABLES"
  211. 1296 GOSUB13000
  212. 1300 PRINT#2,L$(B)
  213. 1305 B=B+1:GOTO1245
  214. 1320 REM BAKERY GOODS
  215. 1325 PRINT"[147]":PRINT
  216. 1330 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  217. 1335 FORZ=61TO75:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  218. 1340 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  219. 1345 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  220. 1350 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  221. 1355 GETA$(B):IF A$(B)=""THEN1355
  222. 1356 IFA$(B)="[133]"THENCLOSE2:GOTO750
  223. 1357 IFA$(B)="[134]"THEN910
  224. 1358 IFA$(B)="O"THENGOSUB12000:GOTO1376
  225. 1359 IFA$(B)="A"THENL$(B)="WHITE BREAD"
  226. 1360 IFA$(B)="B"THENL$(B)="WHEAT BREAD"
  227. 1361 IFA$(B)="C"THENL$(B)="BISCUITS"
  228. 1362 IFA$(B)="D"THENL$(B)="ROLLS"
  229. 1363 IFA$(B)="E"THENL$(B)="HAMBURGER BUNS"
  230. 1364 IFA$(B)="F"THENL$(B)="HOTDOG BUNS"
  231. 1365 IFA$(B)="G"THENL$(B)="CAKE MIX"
  232. 1366 IFA$(B)="H"THENL$(B)="FLOUR"
  233. 1367 IFA$(B)="I"THENL$(B)="DOUGHNUTS"
  234. 1368 IFA$(B)="J"THENL$(B)="SWEET ROLLS"
  235. 1369 IFA$(B)="K"THENL$(B)="TORTILLAS"
  236. 1370 IFA$(B)="L"THENL$(B)="BAGELS"
  237. 1371 IFA$(B)="M"THENL$(B)="RYE BREAD"
  238. 1372 IFA$(B)="N"THENL$(B)="ECLAIRS"
  239. 1376 GOSUB13000
  240. 1380 PRINT#2,L$(B)
  241. 1385 B=B+1:GOTO1325
  242. 1400 REM SNACKS
  243. 1405 PRINT"[147]":PRINT
  244. 1410 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  245. 1415 FORZ=76TO90:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  246. 1420 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  247. 1425 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  248. 1430 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  249. 1435 GETA$(B):IF A$(B)=""THEN1435
  250. 1436 IFA$(B)="[133]"THENCLOSE2:GOTO750
  251. 1437 IFA$(B)="[134]"THEN910
  252. 1438 IFA$(B)="O"THENGOSUB12000:GOTO1456
  253. 1439 IFA$(B)="A"THENL$(B)="CRACKERS"
  254. 1440 IFA$(B)="B"THENL$(B)="POTATO CHIPS"
  255. 1441 IFA$(B)="C"THENL$(B)="FRITOS"
  256. 1442 IFA$(B)="D"THENL$(B)="TORTILLA CHIPS"
  257. 1443 IFA$(B)="E"THENL$(B)="POPCORN"
  258. 1444 IFA$(B)="F"THENL$(B)="COOKIES"
  259. 1445 IFA$(B)="G"THENL$(B)="CANDY"
  260. 1446 IFA$(B)="H"THENL$(B)="TRISCUIT"
  261. 1447 IFA$(B)="I"THENL$(B)="PEANUTS"
  262. 1448 IFA$(B)="J"THENL$(B)="MIXED NUTS"
  263. 1449 IFA$(B)="K"THENL$(B)="CHEETOS"
  264. 1450 IFA$(B)="L"THENL$(B)="MARSHMALLOWS"
  265. 1451 IFA$(B)="M"THENL$(B)="CASHEWS"
  266. 1452 IFA$(B)="N"THENL$(B)="TRAIL MIX"
  267. 1456 GOSUB13000
  268. 1460 PRINT#2,L$(B)
  269. 1465 B=B+1:GOTO1405
  270. 1480 REM PAPER PRODUCTS
  271. 1485 PRINT"[147]":PRINT
  272. 1490 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  273. 1495 FORZ=91TO105:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  274. 1500 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  275. 1505 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  276. 1510 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  277. 1515 GETA$(B):IF A$(B)=""THEN1515
  278. 1516 IFA$(B)="[133]"THENCLOSE2:GOTO750
  279. 1517 IFA$(B)="[134]"THEN910
  280. 1518 IFA$(B)="O"THENGOSUB12000:GOTO1536
  281. 1519 IFA$(B)="A"THENL$(B)="PAPER TOWELS"
  282. 1520 IFA$(B)="B"THENL$(B)="NAPKINS"
  283. 1521 IFA$(B)="C"THENL$(B)="KLEENEX"
  284. 1522 IFA$(B)="D"THENL$(B)="TOILET TISSUE"
  285. 1523 IFA$(B)="E"THENL$(B)="ENVELOPES"
  286. 1524 IFA$(B)="F"THENL$(B)="WRITING PAPER"
  287. 1525 IFA$(B)="G"THENL$(B)="BIRTHDAY CARD"
  288. 1526 IFA$(B)="H"THENL$(B)="COMPUTER PAPER"
  289. 1527 IFA$(B)="I"THENL$(B)="WRAPPING PAPER"
  290. 1528 IFA$(B)="J"THENL$(B)="LABELS"
  291. 1529 IFA$(B)="K"THENL$(B)="INDEX CARDS"
  292. 1530 IFA$(B)="L"THENL$(B)="'THANK YOU' CARDS"
  293. 1531 IFA$(B)="M"THENL$(B)="INVITATIONS"
  294. 1532 IFA$(B)="N"THENL$(B)="NOTE PADS"
  295. 1536 GOSUB13000
  296. 1540 PRINT#2,L$(B)
  297. 1545 B=B+1:GOTO1485
  298. 1560 REM DRINKS
  299. 1565 PRINT"[147]":PRINT
  300. 1570 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  301. 1575 FORZ=106TO120:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  302. 1580 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  303. 1585 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  304. 1590 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  305. 1595 GETA$(B):IF A$(B)=""THEN1595
  306. 1596 IFA$(B)="[133]"THENCLOSE2:GOTO750
  307. 1597 IFA$(B)="[134]"THEN910
  308. 1598 IFA$(B)="O"THENGOSUB12000:GOTO1616
  309. 1599 IFA$(B)="A"THENL$(B)="COFFEE"
  310. 1600 IFA$(B)="B"THENL$(B)="TEA"
  311. 1601 IFA$(B)="C"THENL$(B)="COCA-COLA"
  312. 1602 IFA$(B)="D"THENL$(B)="PEPSI-COLA"
  313. 1603 IFA$(B)="E"THENL$(B)="BOTTLED WATER"
  314. 1604 IFA$(B)="F"THENL$(B)="DIET COKE"
  315. 1605 IFA$(B)="G"THENL$(B)="KOOL-AID"
  316. 1606 IFA$(B)="H"THENL$(B)="DECAFFEINATED COFFEE"
  317. 1607 IFA$(B)="I"THENL$(B)="DIET SLICE"
  318. 1608 IFA$(B)="J"THENL$(B)="HOT CHOCOLATE MIX"
  319. 1609 IFA$(B)="K"THENL$(B)="TANG"
  320. 1610 IFA$(B)="L"THENL$(B)="LEMONADE"
  321. 1611 IFA$(B)="M"THENL$(B)="CRYSTAL LITE"
  322. 1612 IFA$(B)="N"THENL$(B)="ICE TEASERS"
  323. 1616 GOSUB13000
  324. 1620 PRINT#2,L$(B)
  325. 1625 B=B+1:GOTO1565
  326. 1640 REM DAIRY PRODUCTS
  327. 1645 PRINT"[147]":PRINT
  328. 1650 POKEX1,6:POKEX,28:POKEY1,1:POKEY,15:SYSML
  329. 1655 FORZ=121TO135:PRINTTAB(12)N$(Z)CHR$(46)CHR$(32)GL$(Z):NEXT
  330. 1660 PRINT:PRINT:PRINTTAB(8)"PRESS F1[146] FOR THE MAIN MENU"
  331. 1665 PRINTTAB(5)"PRESS F3[146] FOR ANOTHER DEPARTMENT"
  332. 1670 PRINTTAB(4)"SELECT A LETTER OR A FUNCTION KEY":SYSBE
  333. 1675 GETA$(B):IF A$(B)=""THEN1675
  334. 1676 IFA$(B)="[133]"THENCLOSE2:GOTO750
  335. 1677 IFA$(B)="[134]"THEN910
  336. 1678 IFA$(B)="O"THENGOSUB12000:GOTO1696
  337. 1679 IFA$(B)="A"THENL$(B)="MILK"
  338. 1680 IFA$(B)="B"THENL$(B)="EGGS"
  339. 1681 IFA$(B)="C"THENL$(B)="BUTTER"
  340. 1682 IFA$(B)="D"THENL$(B)="MARGARINE"
  341. 1683 IFA$(B)="E"THENL$(B)="CREAM"
  342. 1684 IFA$(B)="F"THENL$(B)="CHEDDAR CHEESE"
  343. 1685 IFA$(B)="G"THENL$(B)="MONTERREY JACK CHEESE"
  344. 1686 IFA$(B)="H"THENL$(B)="CHEESE SLICES"
  345. 1687 IFA$(B)="I"THENL$(B)="VELVEETA"
  346. 1688 IFA$(B)="J"THENL$(B)="CHOCOLATE MILK"
  347. 1689 IFA$(B)="K"THENL$(B)="SOUR CREAM"
  348. 1690 IFA$(B)="L"THENL$(B)="HALF & HALF"
  349. 1691 IFA$(B)="M"THENL$(B)="CONDENSED MILK
  350. 1692 [139]A$(B)[178]"N"[167]L$(B)[178]"MOZARELLA CHEESE"
  351. 1696 [141]13000
  352. 1700 [152]2,L$(B)
  353. 1705 B[178]B[170]1:[137]1645
  354. 1720 [143] SPICES/SAUCES/SPREADS
  355. 1725 [153]"LOAD":[153]
  356. 1730 [151]X1,6:[151]X,28:[151]Y1,1:[151]Y,15:[158]ML
  357. 1735 [129]Z[178]136[164]150:[153][163]12)N$(Z)[199](46)[199](32)GL$(Z):[130]
  358. 1740 [153]:[153]:[153][163]8)"PRESS F1WAIT FOR THE MAIN MENU"
  359. 1745 [153][163]5)"PRESS F3WAIT FOR ANOTHER DEPARTMENT"
  360. 1750 [153][163]4)"SELECT A LETTER OR A FUNCTION KEY":[158]BE
  361. 1755 [161]A$(B):[139] A$(B)[178]""[167]1755
  362. 1756 [139]A$(B)[178]"INPUT"[167][160]2:[137]750
  363. 1757 [139]A$(B)[178]"DIM"[167]910
  364. 1758 [139]A$(B)[178]"O"[167][141]12000:[137]1776
  365. 1759 [139]A$(B)[178]"A"[167]L$(B)[178]"SALT"
  366. 1760 [139]A$(B)[178]"B"[167]L$(B)[178]"PEPPER"
  367. 1761 [139]A$(B)[178]"C"[167]L$(B)[178]"MUSTARD"
  368. 1762 [139]A$(B)[178]"D"[167]L$(B)[178]"MAYONAISE"
  369. 1763 [139]A$(B)[178]"E"[167]L$(B)[178]"SALAD DRESSING"
  370. 1764 [139]A$(B)[178]"F"[167]L$(B)[178]"CHILI POWDER"
  371. 1765 [139]A$(B)[178]"G"[167]L$(B)[178]"SPAGHETTI SAUCE"
  372. 1766 [139]A$(B)[178]"H"[167]L$(B)[178]"BAR-B-Q SAUCE"
  373. 1767 [139]A$(B)[178]"I"[167]L$(B)[178]"OREGANO"
  374. 1768 [139]A$(B)[178]"J"[167]L$(B)[178]"WORCESTERSHIRE SAUCE"
  375. 1769 [139]A$(B)[178]"K"[167]L$(B)[178]"SOY SAUCE"
  376. 1770 [139]A$(B)[178]"L"[167]L$(B)[178]"STEAK SAUCE"
  377. 1771 [139]A$(B)[178]"M"[167]L$(B)[178]"GARLIC POWDER"
  378. 1772 [139]A$(B)[178]"N"[167]L$(B)[178]"CATSUP"
  379. 1776 [141]13000
  380. 1780 [152]2,L$(B)
  381. 1785 B[178]B[170]1:[137]1725
  382. 1800 [143] PERSONAL & BEAUTY
  383. 1805 [153]"LOAD":[153]
  384. 1810 [151]X1,6:[151]X,28:[151]Y1,1:[151]Y,15:[158]ML
  385. 1815 [129]Z[178]151[164]165:[153][163]12)N$(Z)[199](46)[199](32)GL$(Z):[130]
  386. 1820 [153]:[153]:[153][163]8)"PRESS F1WAIT FOR THE MAIN MENU"
  387. 1825 [153][163]5)"PRESS F3WAIT FOR ANOTHER DEPARTMENT"
  388. 1830 [153][163]4)"SELECT A LETTER OR A FUNCTION KEY":[158]BE
  389. 1835 [161]A$(B):[139] A$(B)[178]""[167]1835
  390. 1836 [139]A$(B)[178]"INPUT"[167][160]2:[137]750
  391. 1837 [139]A$(B)[178]"DIM"[167]910
  392. 1838 [139]A$(B)[178]"O"[167][141]12000:[137]1856
  393. 1839 [139]A$(B)[178]"A"[167]L$(B)[178]"SOAP"
  394. 1840 [139]A$(B)[178]"B"[167]L$(B)[178]"SHAMPOO"
  395. 1841 [139]A$(B)[178]"C"[167]L$(B)[178]"CONDITIONER"
  396. 1842 [139]A$(B)[178]"D"[167]L$(B)[178]"DEODORANT"
  397. 1843 [139]A$(B)[178]"E"[167]L$(B)[178]"SHAVING CREAM"
  398. 1844 [139]A$(B)[178]"F"[167]L$(B)[178]"RAZOR BLADES"
  399. 1845 [139]A$(B)[178]"G"[167]L$(B)[178]"HAIR SPRAY"
  400. 1846 [139]A$(B)[178]"H"[167]L$(B)[178]"PETROLEUM JELLY"
  401. 1847 [139]A$(B)[178]"I"[167]L$(B)[178]"BEAUTY LOTION"
  402. 1848 [139]A$(B)[178]"J"[167]L$(B)[178]"MAKE-UP"
  403. 1849 [139]A$(B)[178]"K"[167]L$(B)[178]"TOOTH PASTE"
  404. 1850 [139]A$(B)[178]"L"[167]L$(B)[178]"TOOTH BRUSHES"
  405. 1851 [139]A$(B)[178]"M"[167]L$(B)[178]"MOUTH WASH"
  406. 1852 [139]A$(B)[178]"N"[167]L$(B)[178]"DENTAL FLOSS"
  407. 1856 [141]13000
  408. 1860 [152]2,L$(B)
  409. 1865 B[178]B[170]1:[137]1805
  410. 1880 [143] HOUSEHOLD GOODS
  411. 1885 [153]"LOAD":[153]
  412. 1890 [151]X1,6:[151]X,28:[151]Y1,1:[151]Y,15:[158]ML
  413. 1895 [129]Z[178]166[164]180:[153][163]12)N$(Z)[199](46)[199](32)GL$(Z):[130]
  414. 1900 [153]:[153]:[153][163]8)"PRESS F1WAIT FOR THE MAIN MENU"
  415. 1905 [153][163]5)"PRESS F3WAIT FOR ANOTHER DEPARTMENT"
  416. 1910 [153][163]4)"SELECT A LETTER OR A FUNCTION KEY":[158]BE
  417. 1915 [161]A$(B):[139] A$(B)[178]""[167]1915
  418. 1916 [139]A$(B)[178]"INPUT"[167][160]2:[137]750
  419. 1917 [139]A$(B)[178]"DIM"[167]910
  420. 1918 [139]A$(B)[178]"O"[167][141]12000:[137]1936
  421. 1919 [139]A$(B)[178]"A"[167]L$(B)[178]"LAUNDRY DETERGENT"
  422. 1920 [139]A$(B)[178]"B"[167]L$(B)[178]"FABRIC SOFTENER"
  423. 1921 [139]A$(B)[178]"C"[167]L$(B)[178]"SPRAY STARCH"
  424. 1922 [139]A$(B)[178]"D"[167]L$(B)[178]"DISHWASHER DETERGENT"
  425. 1923 [139]A$(B)[178]"E"[167]L$(B)[178]"DISH WASHING SOAP"
  426. 1924 [139]A$(B)[178]"F"[167]L$(B)[178]"SPRAY CLEANER"
  427. 1925 [139]A$(B)[178]"G"[167]L$(B)[178]"SPONGE"
  428. 1926 [139]A$(B)[178]"H"[167]L$(B)[178]"BLEACH"
  429. 1927 [139]A$(B)[178]"I"[167]L$(B)[178]"TRASH BAGS"
  430. 1928 [139]A$(B)[178]"J"[167]L$(B)[178]"POWDERED CLEANSER"
  431. 1929 [139]A$(B)[178]"K"[167]L$(B)[178]"OVEN CLEANER"
  432. 1930 [139]A$(B)[178]"L"[167]L$(B)[178]"AMMONIA CLEANER"
  433. 1931 [139]A$(B)[178]"M"[167]L$(B)[178]"SOS PADS"
  434. 1932 [139]A$(B)[178]"N"[167]L$(B)[178]"WINDOW CLEANER"
  435. 1936 [141]13000
  436. 1940 [152]2,L$(B)
  437. 1945 B[178]B[170]1:[137]1885
  438. 1960 [143] MISCELLANEOUS
  439. 1965 [153]"LOAD":[153]
  440. 1970 [151]X1,6:[151]X,28:[151]Y1,1:[151]Y,15:[158]ML
  441. 1975 [129]Z[178]181[164]195:[153][163]12)N$(Z)[199](46)[199](32)GL$(Z):[130]
  442. 1980 [153]:[153]:[153][163]8)"PRESS F1WAIT FOR THE MAIN MENU"
  443. 1985 [153][163]5)"PRESS F3WAIT FOR ANOTHER DEPARTMENT"
  444. 1990 [153][163]4)"SELECT A LETTER OR A FUNCTION KEY":[158]BE
  445. 1995 [161]A$(B):[139] A$(B)[178]""[167]1995
  446. 1996 [139]A$(B)[178]"INPUT"[167][160]2:[137]750
  447. 1997 [139]A$(B)[178]"DIM"[167]910
  448. 1998 [139]A$(B)[178]"O"[167][141]12000:[137]2016
  449. 1999 [139]A$(B)[178]"A"[167]L$(B)[178]"CHARCOAL"
  450. 2000 [139]A$(B)[178]"B"[167]L$(B)[178]"CHARCOAL LIGHTER"
  451. 2001 [139]A$(B)[178]"C"[167]L$(B)[178]"COMPUTER DISKS"
  452. 2002 [139]A$(B)[178]"D"[167]L$(B)[178]"NEWSPAPER"
  453. 2003 [139]A$(B)[178]"E"[167]L$(B)[178]"MAGAZINE"
  454. 2004 [139]A$(B)[178]"F"[167]L$(B)[178]"BATTERIES"
  455. 2005 [139]A$(B)[178]"G"[167]L$(B)[178]"LIGHT BULBS"
  456. 2006 [139]A$(B)[178]"H"[167]L$(B)[178]"AIR FRESHENER"
  457. 2007 [139]A$(B)[178]"I"[167]L$(B)[178]"COOKING OIL"
  458. 2008 [139]A$(B)[178]"J"[167]L$(B)[178]"GASOLINE"
  459. 2009 [139]A$(B)[178]"K"[167]L$(B)[178]"AUTOMOTIVE OIL"
  460. 2010 [139]A$(B)[178]"L"[167]L$(B)[178]"'ARMOR-ALL'"
  461. 2011 [139]A$(B)[178]"M"[167]L$(B)[178]"CAR WAX"
  462. 2012 [139]A$(B)[178]"N"[167]L$(B)[178]"MATCHES"
  463. 2016 [141]13000
  464. 2020 [152]2,L$(B)
  465. 2025 B[178]B[170]1:[137]1965
  466. 11600 [143] ADD SUBROUTINE
  467. 11605 [153]"LOAD"
  468. 11610 [159]15,8,15:[159]2,8,2,"0:STUFF,S,R"
  469. 11615 [161]#2,L$:[139]ST[177]19[167]11635
  470. 11620 [139][194](197)[178]1[167]11635
  471. 11625 [139][194](197)[179][177]64[167][146]653,1
  472. 11630 [153]L$;:[137]11615
  473. 11635 [153]:[153]:[160]2:[160]15
  474. 11640 [153]"ARE YOU READY TO CONTINUE?  YWAIT OR NWAIT"
  475. 11645 [158]BE
  476. 11650 [161]C$:[139]C$[178]""[167]11650:[139]C$[179][177]"Y"[167][139]C$[179][177]"N"[167]11650
  477. 11655 [139]C$[178]"N"[167]745
  478. 11660 [159]2,8,2,"0:STUFF,A"
  479. 11665 [139]B[177]1[167]910
  480. 11670 [137]902
  481. 11700 [143] SAVE SUBROUTINE
  482. 11705 [153]"LOAD":[151]X1,3:[151]X,30:[151]Y1,3:[151]Y,15:[158]ML
  483. 11710 [153]:[153][163]10)"YOUR LIST IS SAVED!"
  484. 11715 [153]:[153]:[153][163]7)"THANK YOU FOR USING THIS"
  485. 11716 [153][163]5)"PROGRAM.  I HOPE YOU ENJOYED"
  486. 11717 [153][163]5)"USING IT!"
  487. 11720 [153]:[153][163]7)"PRESS F1WAIT TO RETURN TO THE"
  488. 11721 [153][163]5)"MAIN MENU."
  489. 11725 [153][163]7)"PRESS F3WAIT TO QUIT."
  490. 11726 [158]BE
  491. 11730 [161]C$:[139]C$[178]""[167]11730:[139]C$[179][177]"INPUT"[167][139]C$[179][177]"DIM"[167]11730
  492. 11735 [139]C$[178]"INPUT"[167]745
  493. 11740 [139]C$[178]"DIM"[167][151]X1,8:[151]X,20:[151]Y1,10:[151]Y,5:[158]ML
  494. 11745 [153]:[153][163]12)"ARE YOU SURE?"
  495. 11750 [153]:[153][163]11)"PRESS YWAITES OR NWAITO"
  496. 11751 [158]BE
  497. 11755 [161]C$:[139]C$[178]""[167]11755:[139]C$[179][177]"Y"[167][139]C$[179][177]"N"[167]11755
  498. 11760 [139]C$[178]"Y"[167][158]64738
  499. 11765 [139]C$[178]"N"[167]745
  500. 11800 [143] VIEW LIST SUBROUTINE
  501. 11801 [153]"LOAD"
  502. 11805 [159]15,8,15:[159]2,8,2,"0:STUFF,S,R"
  503. 11810 [161]#2,L$:[139]ST[177]19[167]11830
  504. 11815 [139][194](197)[178]1[167]11830
  505. 11820 [139][194](197)[179][177]64[167][146]653,1
  506. 11825 [153]L$;:[137]11810
  507. 11830 [153]:[153]:[160]2:[160]15
  508. 11835 [153]"PRESS F1WAIT FOR THE MAIN MENU"
  509. 11840 [161]C$:[139]C$[178]""[167]11840:[139]C$[179][177]"INPUT"[167]11840
  510. 11845 [137]745
  511. 11900 [143] PRINT SUBROUTINE
  512. 11905 [153]"LOADSYS":[151]53280,14:[151]53281,14
  513. 11910 [151]X1,5:[151]Y1,9:[151]X,30:[151]Y,5:[158]ML:[158]BE
  514. 11912 [153]:[153][163]7)"PRINTING YOUR LIST..."
  515. 11915 [159]1,4:[152]1,[199](14);"GROCERY LIST"
  516. 11920 [159]15,8,15:[159]2,8,2,"0:STUFF,S,R"
  517. 11925 [161]#2,L$:[139]ST[177]19[167]11945
  518. 11930 [139][194](197)[178]1[167]11945
  519. 11935 [139][194](197)[179][177]64[167][146]653,1
  520. 11940 [152]1,[199](15);L$;:[137]11925
  521. 11945 [152]1,[199](13)
  522. 11946 [152]1,[199](17);"* DENOTES A COUPON ITEM."
  523. 11947 [160]2:[160]15:[160]1
  524. 11950 [153]"LOAD"
  525. 11955 [151]X1,5:[151]Y1,9:[151]X,30:[151]Y,5:[158]ML:[158]BE:[153]
  526. 11960 [153]:[153][163]7)"PRESS F1WAIT FOR THE MAIN MENU"
  527. 11965 [161]C$:[139]C$[178]""[167]11965:[139]C$[179][177]"INPUT"[167]11965
  528. 11970 [137]745
  529. 12000 [143] "OTHER" SUBROUTINE
  530. 12005 [153]"LOAD":[129]Q[178]1[164]5:[153]:[130]
  531. 12008 [153]"PLEASE TELL ME...":[153]:[153]
  532. 12010 [133]"WHAT DO YOU WANT";L$(B):[158]BE
  533. 12015 [151]X1,4:[151]X,30:[151]Y1,11:[151]Y,3:[158]ML
  534. 12020 [153]:[153][163]8)"ARE YOU SURE? YWAITES OR NWAITO":[158]BE
  535. 12025 [161]Y$:[139]Y$[178]""[167]12025:[139]Y$[179][177]"N"[167][139]Y$[179][177]"Y"[167]12025
  536. 12030 [139]Y$[178]"N"[167]12005
  537. 12040 [142]
  538. 12100 [143] QUIT SUBROUTINE
  539. 12105 [153]"LOADSTOP":[151]53280,15:[151]53281,15
  540. 12110 [151]X1,3:[151]Y1,9:[151]X,34:[151]Y,5:[158]ML:[158]BE
  541. 12115 [153]:[153][163]5)"SO...YOU THINK YOU WANT TO QUIT?"
  542. 12120 [153]:[153][163]12)"PRESS YWAITES OR NWAITO"
  543. 12125 [161]C$:[139]C$[178]""[167]12125:[139]C$[179][177]"Y"[167][139]C$[179][177]"N"[167]12125
  544. 12126 [139]C$[178]"N"[167]745
  545. 12130 [151]X1,10:[151]Y1,3:[151]X,20:[151]Y,3:[158]ML:[158]BE
  546. 12135 [153][163]15)"WARNING!!"
  547. 12140 [151]X1,5:[151]Y1,9:[151]X,30:[151]Y,5:[158]ML
  548. 12145 [153]:[153][163]13)"ARE YOU SURE?"
  549. 12150 [153]:[153][163]12)"PRESS YWAITES OR NWAITO"
  550. 12155 [161]C$:[139]C$[178]""[167]12155:[139]C$[179][177]"Y"[167][139]C$[179][177]"N"[167]12155
  551. 12160 [139]C$[178]"N"[167]745
  552. 12165 [139]C$[178]"Y"[167][158]64738
  553. 13000 [143] COUPON SUBROUTINE
  554. 13010 [153]"LOAD"
  555. 13015 [129] F[178]1[164]3:[153]:[130]:[153]"THANK YOU...":[153]
  556. 13020 [153][163]5)"YOU SELECTED ";L$(B)
  557. 13035 [151]X1,4:[151]X,30:[151]Y1,9:[151]Y,6:[158]ML
  558. 13040 [153]:[153][163]9)"DO YOU HAVE A COUPON?"
  559. 13050 [153]:[153][163]10)"PRESS YWAITES OR NWAITO"
  560. 13060 [161]C$:[139]C$[178]""[167]13060
  561. 13070 [139]C$[178]"Y"[167] L$(B)[178][199](42)[170][199](32)[170]L$(B):[142]
  562. 13080 [139]C$[179][177]"Y"[175]C$[179][177]"N"[167]13060
  563. 13090 [142]
  564. 20000 [143] DATA FOR WINDOWS ML SUBROUTINE
  565. 20010 [131]169,19,32,210,255,173,163,192,170,201,0,240,11,169,13,32,210,255
  566. 20020 [131]202,240,3,76,13,192,32,88,192,169,213,32,210,255,32,105,192,169
  567. 20030 [131]201,32,210,255,169,13,32,210,255,32,88,192,32,120,192,169,202,32
  568. 20040 [131]210,255,32,105,192,169,203,32,210,255,169,19,32,210,255,173,163,192
  569. 20050 [131]24,105,1,168,169,13,32,210,255,136,240,3,76,78,192,96,174,162
  570. 20060 [131]192,240,11,169,29,32,210,255,202,240,3,76,95,192,96,174,164,192
  571. 20070 [131]169,195,32,210,255,202,240,3,76,110,192,96,172,165,192,169,221,32
  572. 20080 [131]210,255,169,32,174,164,192,32,210,255,202,240,3,76,133,192,169,221
  573. 20090 [131]32,210,255,169,13,32,210,255,32,88,192,136,240,3,76,123,192,96,1,1,2,2
  574. 20095 [143] :
  575. 20100 [143] DATA FOR BELL ROUTINE
  576. 20110 [131] 169,31,141,24,212,169,9,141,5,212,169,0,141,6,212
  577. 20120 [131] 169,48,141,1,212,169,32,141,4,212,169,33,141,4,212,96
  578. 20200 [143] DATA FOR FRUITS & VEGETABLES
  579. 20210 [131] A,APPLES,B,BANANAS,C,ORANGES,D,LETTUCE,E,TOMATOES,F,CELERY
  580. 20220 [131] G,CARROTS,H,BELL PEPPERS,I,MUSHROOMS,J,POTATOES,K,ONIONS
  581. 20230 [131] L,GREEN ONIONS,M,SPINACH,N,AVOCADOES,O,OTHER
  582. 20295 [143]:
  583. 20300 [143] DATA FOR CANNED & DRIED FOODS
  584. 20310 [131] A,ASPARAGUS,B,GREEN BEANS,C,RANCH STYLE BEANS,D,CORN,E,TOMATO PASTE
  585. 20320 [131] F,BLACKEYED PEAS,G,SWEET PEAS,H,ROTEL TOMATOES,I,TOMATO SAUCE
  586. 20330 [131] J,TOMATOES,K,REFRIED BEANS,L,SPAGHETTI,M,MACARONI,N,YAMS
  587. 20340 [131] O,OTHER
  588. 20395 [143] :
  589. 20400 [143] DATA FOR MEAT/POULTRY/FISH
  590. 20410 [131] A,HAMBURGER,B,T-BONE STEAK,C,SIRLOIN STEAK,D,FAJITAS,E,ROAST
  591. 20420 [131] F,PORK CHOPS,G,RIBS,H,TURKEY,I,CHICKEN,J,TUNA,K,SPAM,L,SANDWICH MEAT
  592. 20430 [131] M,CHILI,N,BACON,O,OTHER
  593. 20435 [143]:
  594. 20440 [143] DATA FOR FROZEN FOODS
  595. 20450 [131] A,ORANGE JUICE,B,ICE CREAM,C,PIZZA,D,POT PIES,E,MEXICAN DINNERS
  596. 20460 [131] F,FRENCH FRIES,G,POPSICLES,H,WEIGHT WATCHERS,I,LEAN CUISINE,J,STOUFFERS
  597. 20470 [131] K,FISH STICKS,L,CORN DOGS,M,CORN ON THE COB,N,VEGETABLES,O,OTHER
  598. 20475 [143] :
  599. 20480 [143] DATA FOR BAKERY GOODS
  600. 20490 [131] A,WHITE BREAD,B,WHEAT BREAD,C,BISCUITS,D,ROLLS,E,HAMBURGER BUNS
  601. 20500 [131] F,HOTDOG BUNS,G,CAKE MIX,H,FLOUR,I,DOUGHNUTS,J,SWEET ROLLS,K,TORTILLA
  602. 20510 [131] L,BAGELS,M,RYE BREAD,N,ECLAIRS,O,OTHER
  603. 20515 [143] :
  604. 20520 [143] DATA FOR SNACKS
  605. 20530 [131] A,CRACKERS,B,POTATO CHIPS,C,FRITOS,D,TORTILLA CHIPS,E,POPCORN
  606. 20540 [131] F,COOKIES,G,CANDY,H,TRISCUIT,I,PEANUTS,J,MIXED NUTS,K,CHEETOS
  607. 20550 [131] L,MARSHMALLOWS,M,CASHEWS,N,TRAIL MIX,O,OTHER
  608. 20555 [143] :
  609. 20560 [143] DATA FOR PAPER PRODUCTS
  610. 20570 [131] A,PAPER TOWELS,B,NAPKINS,C,KLEENEX,D,TOILET TISSUE,E,ENVELOPES
  611. 20580 [131] F,WRITING PAPER,G,BIRTHDAY CARD,H,COMPUTER PAPER,I,WRAPPING PAPER
  612. 20590 [131] J,LABELS,K,INDEX CARDS,L,'THANK YOU' CARDS,M,INVITATIONS,N,NOTE PADS
  613. 20600 [131] O,OTHER
  614. 20605 [143] :
  615. 20610 [143] DATA FOR DRINKS
  616. 20620 [131] A,COFFEE,B,TEA,C,COCA-COLA,D,PEPSI-COLA,E,BOTTLED WATER,F,DIET COKE
  617. 20630 [131] G,KOOL-AID,H,DECAFFEINATED COFFEE,I,DIET SLICE,J,HOT CHOCOLATE MIX
  618. 20640 [131] K,TANG,L,LEMONADE,M,CRYSTAL LITE,N,ICE TEASERS,O,OTHER
  619. 20645 [143] :
  620. 20650 [143] DATA FOR DAIRY PRODUCTS
  621. 20660 [131] A,MILK,B,EGGS,C,BUTTER,D,MARGARINE,E,CREAM,F,CHEDDAR CHEESE
  622. 20670 [131] G,MONTERREY J. CHEESE,H,CHEESE SLICES,I,VELVEETA,J,CHOCOLATE MILK
  623. 20680 [131] K,SOUR CREAM,L,HALF & HALF,M,CONDENSED MILK,N,MOZARELLA CHEESE
  624. 20690 [131] O,OTHER
  625. 20695 [143] :
  626. 20700 [143] DATA FOR SPICES/SAUCES/SPREADS
  627. 20710 [131] A,SALT,B,PEPPER,C,MUSTARD,D,MAYONAISE,E,SALAD DRESSING
  628. 20720 [131] F,CHILI POWDER,G,SPAGHETTI SAUCE,H,BAR-B-Q SAUCE,I,OREGANO
  629. 20730 [131] J,WORCESTERSHIRE SAUCE,K,SOY SAUCE,L,STEAK SAUCE,M,GARLIC POWDER
  630. 20740 [131] N,CATSUP,O,OTHER
  631. 20745 [143] :
  632. 20750 [143] DATA FOR PERSONAL & BEAUTY
  633. 20760 [131] A,SOAP,B,SHAMPOO,C,CONDITIONER,D,DEODORANT,E,SHAVING CREAM
  634. 20770 [131] F,RAZOR BLADES,G,HAIR SPRAY,H,PETROLEUM JELLY,I,BEAUTY LOTION
  635. 20780 [131] J,MAKE-UP,K,TOOTH PASTE,L,TOOTH BRUSHES,M,MOUTH WASH,N,DENTAL FLOSS
  636. 20790 [131] O,OTHER
  637. 20795 [143] :
  638. 20800 [143] DATA FOR HOUSEHOLD GOODS
  639. 20810 [131] A,LAUNDRY DETERGENT,B,FABRIC SOFTENER,C,SPRAY STARCH
  640. 20820 [131] D,DISHWASHER DETERGENT,E,DISH WASHING SOAP,F,SPRAY CLEANER
  641. 20830 [131] G,SPONGE,H,BLEACH,I,TRASH BAGS,J,POWDERED CLEANSER,K,OVEN CLEANER
  642. 20840 [131] L,AMMONIA CLEANER,M,'SOS' PADS,N,WINDOW CLEANER,O,OTHER
  643. 20845 [143] :
  644. 20850 [143] DATA FOR MISCELLANEOUS
  645. 20860 [131] A,CHARCOAL,B,CHARCOAL LIGHTER,C,COMPUTER DISKS,D,NEWSPAPER
  646. 20870 [131] E,MAGAZINE,F,BATTERIES,G,LIGHT BULBS,H,AIR FRESHENER,I,COOKING OIL
  647. 20880 [131] J,GASOLINE,K,AUTOMOTIVE OIL,L,'ARMOR-ALL',M,CAR WAX,N,MATCHES
  648. 20890 [131] O,OTHER
  649. 22000 [143] DATA FOR DEPARTMENTS
  650. 22010 [131] A,FRUITS & VEGETABLES,B,CANNED & DRIED FOODS,C,MEAT/POULTRY/FISH
  651. 22020 [131] D,FROZEN FOODS,E,BAKERY GOODS,F,SNACKS,G,PAPER PRODUCTS
  652. 22030 [131] H,DRINKS,I,DAIRY PRODUCTS,J,SPICES/SAUCES/SPREADS
  653. 22040 [131] K,PERSONAL & BEAUTY,L,HOUSEHOLD GOODS,M,MISCELLANEOUS,X,X
  654. 22095 [143] :
  655.